---
title: "データ解析論I第6講"
output: 
  flexdashboard::flex_dashboard:
    vertical-layout: scroll
    orientation: columns
    source_code: embed
    theme: journal
    toc: true
    toc_depth: 2
    fig_mobile: true
    highlight: pygments
    css: styles_customized.css

---

```{r setup, include=FALSE}
library(flexdashboard)
library(readr)
exdataset <- read_csv("/Users/akira/Dropbox/Education/2019MEIJI/[3_Wed2]Data_Analytics/analysis/data/exdataset.csv")
library(ggplot2)

```




# 講義資料


## メイン資料 {.tabset .tabset-fade}

### 今日の資料はコチラから．






スマホで見る方は**QRコード**を読み込んでください



### 前回の復習

#### Rマークダウンの記法

```
## テキストの修飾

*イタリック*

_イタリック_

**太字**

__太字__

~~取り消し~~

# 見出し1
## 見出し2
### 見出し3
#### 見出し4
##### 見出し5
###### 見出し6

# 数字なし箇条書き
* Item 1
* Item 2
    * Item 2.1
    * Item 2.2

# 数字あり箇条書き
1. Item 1
2. Item 2
    1. Item 2.1
    2. Item 2.2

# 改行
今日は   
いい天気ですね。

文章中で改行をしたい場合には、半角スペースを3つ打つ。

#リンク
http://www.yahoo.co.jp
はヤフーのURL   
[こちら](http://www.yahoo.co.jp)からヤフーに行けます。

# 引用文

学部長は

> 今日の天気はよろしくない

と、おっしゃった


> 学部長は

> > 今日の天気はよろしくない

> と、おっしゃった

という発言は、間違いである。とごとうは言った。



Rにおける合計を求める関数は`sum()`です。

## 数式

$$1 + 1 = 2$$
$$x * y = 15$$
$$(身長) = (体重)\beta + \alpha + \epsilon_i   $$

## 水平線

***
今日のお昼ご飯は何にしようかなぁ。

もう、最近仕事だらけでのんびりしたいなぁ。。。

---
```

#### その他の形式で出力してみよう．
 * html以外の出力形式：
    - YAMLヘッダを変えることでファイル形式を変えることができる．
    - 1回それぞれを試してみよう．

##### htmlの時
```
output: html_document
```

##### wordの時
```
output: word_document
```

##### ioslides（プレゼンテーションその1）の時
```
output: ioslides_presentation
```

##### slidy（プレゼンテーションその2）の時
```
output: slidy_presentation
```




#### データの順序付け

* データの順序付け：データを分析しやすいように並び替えること．
  - 分析をしやすいように並べ変える必要があることがある．
  - Rでは自動的にアルファベット順に並べてくれる．


```{r}
exdataset <- read_csv("/Users/akira/Dropbox/Education/2019MEIJI/[3_Wed2]Data_Analytics/analysis/data/exdataset.csv")
exdataset
```


##### 地域を並べ替える．
```{r echo=TRUE}
factor(exdataset$ARE)
```

  - 今のままだと中部，中国，北海道，関東，近畿，九州，四国，東北という順番で気持ちが悪い
  - 関東を一番始めとして．北から順番に並べ替えましょう．
  - `head()`を使うと最初の5つのデータだけを表示してくれる．
  - 全部並べると植えみたいに長くなってめんどくさいじゃない？

```{r echo=TRUE}
## Reordering exdataset$ARE
exdataset$ARE <- factor(exdataset$ARE, levels=c("Kanto", "Hokkaido", "Tohoku", "Chubu", "Kinki", "Chugoku", "Shikoku", "Kyushu"))
head(factor(exdataset$ARE))
```
  - Levelsを確認すると，関東を始めとして，北海道，東北，中部，近畿，中国，四国，九州の順番に並べ替えられる．
  - 『関東』を最初にする理由は今後紹介するが，「比較の基準」とするモノを

#### アドインの追加
```
install.packages("addinslist")
```
* インストールした後に，*Addins*をクリックする．
* "order"で検索
* "questionr"をインストール
* RStudioをとじて，再度立ち上げる．
* "Addins"→"Levels Ordering"を選択
* "exdataset"→"ARE"を選択
* "Ordering"タブを選んで，並べ替える．



##### 結婚と子どもの有無についても並べ替えよう．

```{r echo=TRUE}
head(factor(exdataset$MAR))
```

* NoChild(子どもなし)を最初として，次にChild(子どもあり)として並べ替えよう．

```{r echo=TRUE}
head(factor(exdataset$CHI))
```
* NoChild(子どもなし)を最初として，次にChild(子どもあり)として並べ替えよう．


* 並べ替えを手抜きするために"Addin"を使おう．
  - そうすればクリックだけでいろいろできる．



#### データのフィルタリング

* データのフィルタリングとは：データを一定の基準で分けること
  - ex.データを男性によるデータと女性によるデータに分けて分析を行う
  
```{r include=FALSE}
exdataset <- read_csv("/Users/akira/Dropbox/Education/2019MEIJI/[3_Wed2]Data_Analytics/analysis/data/exdataset.csv")
library(ggplot2)

## Reordering exdataset$ARE
exdataset$ARE <- factor(exdataset$ARE, levels=c("Kanto", "Hokkaido", "Tohoku", "Chubu", "Kinki", "Chugoku", "Shikoku", "Kyushu"))

## Reordering exdataset$MAR
exdataset$MAR <- factor(exdataset$MAR, levels=c("NotMarried", "Married"))

## Reordering exdataset$CHI
exdataset$CHI <- factor(exdataset$CHI, levels=c("NoChild", "Child"))


```


#### 男性のデータだけを取り出す．
  * `exdataset$F_SEX`の`male(男性)`のみを取り出して，`exdataset_male`というデータセットを作って`SUB_HAP(主観的幸福度)`の平均値を算出してみましょう．

  * 最初にデータ全体の主観的幸福度の平均値を確認しておきましょう．
```{r echo=TRUE}
mean(exdataset$SUB_HAP)
```



```{r echo=TRUE}
library(dplyr)
 # dplyrというパッケージを用いる．
 # もしインストールをしていなかった場合には`install.packages('dplyr', dependencies = T)`を最初の一回だけ入力する必要がある．

exdataset_male <- exdataset %>% filter(F_SEX == "male")
 # `exdataset`について，`F_SEX`が`male`であるデータだけを取り出す．
 # `=`ではなく，`==`であることに注意しよう．

head(factor(exdataset_male$F_SEX))
mean(exdataset_male$SUB_HAP)

```


#### 女性のデータだけを取り出す．
  * `exdataset$F_SEX`の`female(女性)`のみを取り出して，`exdataset_female`というデータセットを作って`SUB_HAP(主観的幸福度)`の平均値を算出してみましょう．
    - 各自でやってみましょう．
    
```{r include=FALSE}

exdataset_female <- exdataset %>% filter(F_SEX == "female")
 # `exdataset`について，`F_SEX`が`male`であるデータだけを取り出す．
 # `=`ではなく，`==`であることに注意しよう．

head(factor(exdataset_female$F_SEX))
mean(exdataset_female$SUB_HAP)

```



### 今回のタスク

#### 前回の続き

* 前回終わってないことをやりましょう．
  - 前回資料のデータの順序付けから確認
  

#### 実証分析の手続き・クロス集計表の作成①

* 実証分析：**客観的に**たくさんのケースにまたがって多量のデータを収集した上で，**統計的**な手法によってそれを分析しようとする方法（森田, 2014）．
  - ただし，個別具体的な事例に踏み込んでの議論には合わないが，**一般性・客観性のある議論には適している**．
  - 個別具体的な事例に踏み込んだ議論は分析者の主観的観点が含まれてしまうために，客観性に劣ってしまう．  
  - いわゆる「質的研究」が抱える課題



* **クロス集計表**：複数の質問項目を組み合わせて集計する手法
  - ex. 朝食を食べているか否か×深夜アルバイトしているか否かなど．
  - 企業の中でも基本的な統計手法としてよく用いられている．  
  - 2つの質的変数間の関連性である「連関」を示す．




#### 組み合わせの数をカウントする．

* 使用するパッケージ
```{r, echo=T}
library(dplyr)
  # インストールしていなければ，最初はinstall.packages("dplyr")をしておきましょう．
library(tidyr)
  # インストールしていなければ，最初はinstall.packages("tidyr")をしておきましょう．
```


#### 地域ごとに子どもがいる人の数を数える．

* 2つの手法
  - dplyrのgroup_by関数を使う方法
  - table 関数を使う方法
  - 現在では前者がメインの手法だが，念のために後者の方法についても紹介する．
  - 今の御時世の最先端の関数を使っている


##### dplyrのgroup_by関数を使う方法
```{r, echo=T}
tablea<-exdataset %>% 
  group_by(ARE, CHI) %>%
  tally() %>%
  spread(ARE, n)
tablea
```


* ちなみに，panderという関数を使うとキレイにできる．
```{r, echo=T}
library(pander)
pander(tablea)
```


* dplyrのcount関数を使う方法
```{r, echo=T}
tableb<-exdataset %>%
  count(ARE, CHI) %>%
  spread(ARE, n)
tableb
```



##### table 関数を使う方法


```{r, echo=T}
tablec<- table(exdataset$CHI)
tablec
```

```{r, echo=T}
tabled<- table(exdataset$ARE)
tabled
```



```{r, echo=T}
tablee<-table(exdataset$CHI, exdataset$ARE)
tablee
```


* 行のパーセンテージ
```{r, echo=T}
tableg<-prop.table(tablee, 1)
tableg
```

* 列のパーセンテージ
```{r, echo=T}
tableh<-prop.table(tablee, 2)
tableh
```


#### もっと細かいクロス集計表を出してみよう
```{r echo=T}
xtabs(~ CHI + ARE +F_SEX, exdataset)
```


#### 連関係数を出力しよう

* 連関係数：クラメール連関係数V
  - 下限が0，上限が1で完全な連関に近づくにつれて1に近い値を取る．
  

```{r echo=TRUE}
library(vcd)
 # vcdというパッケージを用いる．
 # もしインストールをしていなかった場合には`install.packages('vcd', dependencies = T)`を最初の一回だけ入力する必要がある．

assocstats(tablee)

```
* 今回の場合は当たり前ですが，地域と子供の有無に連関は認められません．


#### χ二乗検定を行いましょう．
* 対立仮説：居住地域と子供の有無は独立ではない（関連がある）
* 帰無仮説：居住地域と子供の有無は独立である（関連があるとは言えない）

```{r echo=T}
chitest.tablee<-chisq.test(tablee)
chitest.tablee
```
* 検定の結果，p値が.05以上なので，対立仮説を採択できず，帰無仮説を採択する．
* レポートにまとめる時には，こんな書き方をします．
>  χ二乗検定を行った結果，居住地域と子供の有無は独立であることがわかった(χ=5.1408, df=7, p=.64)．

* もし，χ二乗検定でp値が.05以下であった場合，残差分析を行います．
  - どのセルで有意な逸脱が生じたのかを検討する．
  - 標準化残差が1.96以上であれば，5%水準で有意な逸脱があったと評価する．
  
```{r echo=T}
chitest.tablee$stdres
```


#### ヒートマップを作ってみよう
```{r, echo=T}
library(rpivotTable)
exdataset %>% rpivotTable()
```

* ただし，再現可能性の観点から課題が残る・・・
  - コードを出力してくれない．
  - 参考までに使ってみると良いでしょう．

　  
#### いろいろグラフを作ってみよう

```{}
library(esquisse)
  # インストールしていなければ，最初はinstall.packages("esquisse")をしておきましょう．
exdataset %>% esquisser()

```

　
```{}
library(DataExplorer)
  # インストールしていなければ，最初はinstall.packages("DataExplorer")をしておきましょ
DataExplorer::create_report(exdataset)
```



#### 質問項目の作成

* *[こちらのリスト](https://docs.google.com/spreadsheets/d/1TNtBJdar2XiVRUFFK_5aTY-zReMA44iqWLXdx6L56HY/edit#gid=0)*に書き込みましょう．
  - 質問項目リストを完成させましょう．








### 今日のTake Home Messages  

#### RMarkdownの記法

* RMarkdown：
  - R上でドキュメントを作成するツール
  - **html**でも**Word**でも**htmlプレゼンテーション形式**でも報告可能
  - 様々な記法を覚えましょう．
　  

* データ分析をするためには，データを適切に取り扱う必要がある．
  - filterで分けたり，順番を並べ替えたり．

* クロス集計表はカウントデータ（質的変数）の数を数える手法
* クロス集計に対応した検定は「χ二乗検定」である．
  - 統計的に有意であることが確認されたら，「残差分析」を行う．
  - でも，ロジスティック回帰分析など，他の手法使うことが多くなる．
    - この辺は後期のお話．


```{r}

```


### Rでデータを扱う時に注意すべきこと


 * 必ず数字／文字は半角で入力する．
 * 日本語は使わずにローマ字を使用する．
 * コメントアウト（コードではなく，関係ないメモを入れること）をするときは半角の「#」から始める．
    - メモする内容は全角でもよい．
 * ファイル名およびパスには決して全角の文字（ひらがな，カタカナ，漢字，全角スペースなど）を入れてはいけない．
    - 半角英数字だけにする．
    
 * 慌てずに落ち着いて操作すれば，決して難しくない．
    - 1つずつ落ち着いて作業することを心がける．
 * 「わからない」ことを恐れない
    - 周りの友人に聞いたり，教員に確認したりしよう．
    
 * 文字化け対策に**[こちら](https://docs.google.com/document/d/1CYF6LeFeGV9dTWHGuznkO0Tm4RnhAu2KatdSqFn7bmU/edit)** のp8以降を確認して設定しよう．
    
 


# 演習問題

## 問題

### 問題

#### 演習問題：

* 次回までにご自身で分析してみたいテーマ（回帰分析1つ）＋（t検定1つ）＋（分散分析1つ）の帰無仮説と対立仮説を考えてきてください．


  * `exdataset$MAR`の`Married(既婚者)`のみを取り出して，`exdataset_Married`というデータセットを作って`SUB_HAP(主観的幸福度)`の平均値を算出してみましょう．

  * `exdataset$MAR`の`NotMarried(未既婚者)`のみを取り出して，`exdataset_NotMarried`というデータセットを作って`SUB_HAP(主観的幸福度)`の平均値を算出してみましょう
  
  * `exdataset$CHI`の`Child(子どもあり)`のみを取り出して，`exdataset_Child`というデータセットを作って`SUB_HAP(主観的幸福度)`の平均値を算出してみましょう
  
  * `exdataset$CHI`の`NoChild(子どもなし)`のみを取り出して，`exdataset_NoChild`というデータセットを作って`SUB_HAP(主観的幸福度)`の平均値を算出してみましょう


#### リアクションペーパー：

* 授業で学んだことおよび感想を下記リンクからお答えください．


**[リアクションペーパー](https://forms.gle/jhMGgdhyb3sMgpWm7)**






### ヒント

* パッケージdplyrの関数filterを使います．
* ある列の中にあるデータの名前を個別に指定する時には""（ダブルクォーテーション）で囲います．

```{r}



```



# データの概要



### データ概要

ダウンロードは**[コチラ](https://akrgt.github.io/2019DA/data/exdataset.csv)**から

```{r}
library(DT)
DT::datatable(exdataset)
```



### 変数名リスト
#### 主観的指標

| 項目名       | データタイトル | 質問項目                                                     | 回答                                             |
| ------------ | -------------- | ------------------------------------------------------------ | ------------------------------------------------ |
| 主観的幸福度 | SUB_HAP        | 現在，あなたはどの程度幸せですか？「とても幸せ」を10点，「とても不幸せ」を0点とすると，何点くらいになると思いますか？* | 0点「とても不幸せ」-10点「とても幸せ」           |
| 生活満足度   | SUB_SAT        | あなたは全体として最近の生活にどの程度満足していますか？「とても満足」を10点，「とても不満足」を0点とすると，何点くらいになると思いますか？ | 0点「とても不満足」-10点「とても満足」           |
| 生活満足度   | SUB_SLP        | あなたは最近，どの程度眠れていますか？「とても眠れている」を10点，「全く眠れていない」を0点とすると，何点くらいになると思いますか？ | 0点「全く眠れていない」-10点「とても眠れている」 |




#### 独裁者ゲーム

図を見て下さい.  
あなたはAさんです. あなたはTポイントを10ポイントを受け取りました.  
そのうち，あなたはBさんに何ポイントかを渡すことができます．  
さて，あなたはBさんに何ポイント渡しますか？  
ここでは以下の条件の場合について教えて下さい.  

| 項目名       | データタイトル | 質問項目                      | 回答                 |
| ------------ | -------------- | ----------------------------- | -------------------- |
| 主観的幸福度 | DIC_PAR        | Bさんが両親の場合             | 0ポイント-10ポイント |
| DG友人条件   | DIC_FRI        | Bさんが友人の場合             | 0ポイント-10ポイント |
| DG他者条件   | DIC_OTH        | Bさんが全く知らない他人の場合 | 0ポイント-10ポイント |



#### 最終提案ゲーム_提案者

図を見て下さい.  
あなたはAさんです. あなたはTポイントを10ポイントを受け取りました.  
そのうち，あなたはBさんとポイントを分け合うことになりました．  
あなたは，Bさんに対して分け合うポイントを提案することができます．  
あなたは，10ポイントの中から，Bさんに対して分けたポイントを引いた残りを受け取ることができます．  
しかし，Bさんがあなたの提案を拒否した場合には，その提案は実現せずに，  
お互いポイントをもらえないことになります．  
さて，あなたはBさんに何ポイント渡すことを提案しますか？  
ここでは以下の条件の場合について教えて下さい.  

| 項目名                 | データタイトル | 質問項目                      | 回答                 |
| ---------------------- | -------------- | ----------------------------- | -------------------- |
| 最終提案提案者両親条件 | ULT_PRO_PAR    | Bさんが両親の場合             | 0ポイント-10ポイント |
| 最終提案提案者友人条件 | ULT_PRO_FRI    | Bさんが友人の場合             | 0ポイント-10ポイント |
| 最終提案提案者他者条件 | ULT_PRO_OTH    | Bさんが全く知らない他人の場合 | 0ポイント-10ポイント |



#### 最終提案ゲーム_応答者

図を見て下さい.
あなたはBさんです. AさんはTポイントを10ポイントを受け取りました.  
Aさんが，あなたに対して分け合うポイントを提案します．  
Aさんは，10ポイントの中から，あなたに対して分けたポイントを引いた残りを受け取ることができます．  
しかし，あなたがAさんの提案を拒否した場合には，その提案は実現せずに，  
お互いポイントをもらえないことになります．  
さて，最低でも何ポイントの提案を受けたら，Aさんの提案を受け入れますか？  
ここでは以下の条件の場合について教えて下さい.  

| 項目名                 | データタイトル | 質問項目                      | 回答                 |
| ---------------------- | -------------- | ----------------------------- | -------------------- |
| 最終提案応答者両親条件 | ULT_REC_PAR    | Bさんが両親の場合             | 0ポイント-10ポイント |
| 最終提案応答者友人条件 | ULT_REC_FRI    | Bさんが友人の場合             | 0ポイント-10ポイント |
| 最終提案応答者他者条件 | ULT_REC_OTH    | Bさんが全く知らない他人の場合 | 0ポイント-10ポイント |



#### 信頼ゲーム

図を見て下さい.  
あなたはAさんです. あなたはTポイントを10ポイント持っています.  
いくらかをCさんにあずけてください.   CさんはあなたからあずかったTポイントを3倍にしてBさんに渡します.  
Bさんは手元に渡されたポイントのうち，いくらかをあなたに返します.  
この時，あなたはCさんにいくらあずけますか？  
ここではBさんが以下の条件の場合について教えて下さい.  

| 項目名       | データタイトル | 質問項目                      | 回答                 |
| ------------ | -------------- | ----------------------------- | -------------------- |
| 信頼両親条件 | TRU_PAR        | Bさんが両親の場合             | 0ポイント-10ポイント |
| 信頼友人条件 | TRU_FRI        | Bさんが友人の場合             | 0ポイント-10ポイント |
| 信頼他者条件 | TRU_OTH        | Bさんが全く知らない他人の場合 | 0ポイント-10ポイント |



#### 自然関連

以下の質問について4点満点でお答えください．

| 項目名   | データタイトル | 質問項目                                                     | 回答                              |
| -------- | -------------- | ------------------------------------------------------------ | --------------------------------- |
| 自然運命 | SPN_UNM        | 何かの大きな力に自分の運命は動かされているように感じることがある. | 1全くそう思わない-4非常にそう思う |
| 自然感謝 | SPN_THK        | 自然などの人間を超えた力に感謝の気持ちを持つことがある.      | 1全くそう思わない-4非常にそう思う |
| 自然恐怖 | SPN_FEA        | 自然などの人間を超えた力に恐れの気持ちを持つことがある.      | 1全くそう思わない-4非常にそう思う |
| 自然生存 | SPN_LIV        | 自然などの人間を超えた力によって，生かされていると思うことがある. | 1全くそう思わない-4非常にそう思う |
| 自然大切 | SPN_IMP        | 自然は大切な存在である．                                     | 1全くそう思わない-4非常にそう思う |
|          |                |                                                              |                                   |

#### 監視

以下の質問について4点満点でお答えください．

| 項目名           | データタイトル | 質問項目                                                     | 回答                              |
| ---------------- | -------------- | ------------------------------------------------------------ | --------------------------------- |
| 第2者被監視感    | KAN_SEC        | 日常生活の中で，直接誰か（人間）に見られていると思うことがある． | 1全くそう思わない-4非常にそう思う |
| 第3者被監視感    | KAN_THI        | 日常生活の中で，監視カメラ等を通じて誰か（人間）に間接的に見られていると思うことがある． | 1全くそう思わない-4非常にそう思う |
| 超自然的被監視感 | KAN_SUP        | 日常生活の中で，超自然的な存在に見られていると思うことがある． | 1全くそう思わない-4非常にそう思う |
| 第2者被監視感    | KAN_PRD        | 無機物の中に，人間の表情のようなものを見出すことがある．     | 1全くそう思わない-4非常にそう思う |
| 自然大切         | KAN_KYK        | 人に対して共感をすることがある．                             | 1全くそう思わない-4非常にそう思う |
|                  |                |                                                              |                                   |

#### 死後

以下の質問について4点満点でお答えください．

| 項目名   | データタイトル | 質問項目                               | 回答                              |
| -------- | -------------- | -------------------------------------- | --------------------------------- |
| 死後世界 | DED_SHI        | 「死後の世界」が存在すると思いますか？ | 1全くそう思わない-4非常にそう思う |
| 天国     | DED_TEN        | 「天国」が存在すると思いますか？       | 1全くそう思わない-4非常にそう思う |
| 地獄     | DED_JIG        | 「地獄」が存在すると思いますか？       | 1全くそう思わない-4非常にそう思う |
| 奇跡     | DED_KIS        | 「奇跡」が存在すると思いますか？       | 1全くそう思わない-4非常にそう思う |
| 天罰     | DED_PUN        | 「天罰」が存在すると思いますか？       | 1全くそう思わない-4非常にそう思う |
|          |                |                                        |                                   |

#### 性行動

以下の質問についてお答えください． 

| 項目名     | データタイトル                           | 質問項目                                                     | 回答                                                         |
| ---------- | ---------------------------------------- | ------------------------------------------------------------ | ------------------------------------------------------------ |
| 性衝動     | SEX_IMP，SEX_IMP_num（数値，欠損値有り） | あなたの性衝動はどの程度強いと思いますか？7点満点でお答え下さい．なお，答えたくない方は「8.答えたくない」を選んで下さい． | 全く弱い．2. 弱い．3. どちらかと言えば弱い．4. どちらとも言えない．5. どちらかと言えば強い．6. 強い．7. 非常に強い．8. 答えたくない． |
| 自慰回数   | SEX_MAS，SEX_MAS_nen（年間回数）：       | あなたはどの程度の頻度でマスターベーションをしていますか？以下の選択肢の中から最も近いものを選んで下さい．なお，答えたくない方は「10. 答えたくない」を選んで下さい． | 1. 経験がない「0」, 2. 年に1回程度「1」, 3. 半年に1回程度「2」, 4. 3ヶ月に1回程度「4」, 5. 1ヶ月に1回程度「12」, 6. 2週に1回程度「26」, 7. 週に1回程度「52」, 8. 週に2-3回程度「130」, 9. 1日に1回程度「365」, 10. それ以上「730」, 11. 答えたくない「NA」 |
| 性交渉回数 | SEX_SEX，SEX_SEX_nen（年間回数）         | あなたはどの程度の頻度で性交渉（性行為）をしていますか？以下の選択肢の中から最も近いものを選んで下さい．なお，答えたくない方は「10. 答えたくない」を選んで下さい． | 1. 経験がない「0」, 2. 年に1回程度「1」, 3. 半年に1回程度「2」, 4. 3ヶ月に1回程度「4」, 5. 1ヶ月に1回程度「12」, 6. 2週に1回程度「26」, 7. 週に1回程度「52」, 8. 週に2-3回程度「130」, 9. 1日に1回程度「365」, 10. それ以上「730」, 11. 答えたくない「NA」 |
| 性衝動対象 | SEX_OBJ                                  | あなたの性衝動の対象として当てはまる選択肢を選んで下さい．なお，答えたくない方は「5.答えたくない」を選んで下さい． | 1.異性, 2. 同性,3. 両方,4. その他,5. 答えたくない            |
| 天罰       | SEX_NIN，SEX_NIN_cen（中央値）           | あなたが性交渉（性行為）をしたことがある人数を教えて下さい．* 性交渉を（性行為）したことがない場合は「0. 0人」を選んで下さい． また，答えたくない方は「12.答えたくない」を選んで下さい． | 1. 0人 「0」, 2. 1人 「1」, 3. 2〜3人 「2.5」, 4. 4〜5人 「4.5」, 5. 5〜7人 「6」, 6. 8〜10人 「9」, 7. 11〜15人 「13」, 8. 16〜20人 「18」, 9. 21〜30人 「25.5」, 10. 31〜40人 「35.5」, 11. 41〜100人 「70.5」, 12. 101人以上 「101」, 13. 答えたくない．「NA」 |
| 性情報開示 | SEX_NNA                                  | 性情報に対して開示しなかった個数                             | 上記5つについて答えたくないを選んだ個数                      |
|            |                                          |                                                              |                                                              |

#### フェイスシート

あなたのことについて教えて下さい．

| 項目名   | データタイトル                   | 質問項目                                                     | 回答                                                         |
| -------- | -------------------------------- | ------------------------------------------------------------ | ------------------------------------------------------------ |
| 性別     | F_SEX                            | あなたの性別を教えて下さい.                                  | 1.男性, 2.女性,3.その他                                      |
| 世代     | F_GEN                            | あなたの年齢を教えて下さい.                                  | 1. 10代前半, 2. 10代後半, 3. 20代前半, 4. 20代後半, 5. 30代前半, 6. 30代後半, 7. 40代前半, 8. 40代後半, 9. 50代前半, 10. 50代前半, 11. 60代前半, 12. 60代後半, 13. 70代以降 |
| 最終学歴 | F_FGR                            | あなたの最終学歴を教えて下さい.                              | 1. 中学校卒業, 2. 高校中退, 3. 高校卒業, 4. 専門学校（短期大学）中退, 5. 専門学校（短期大学）卒業, 6. 大学中退, 7. 大学卒業, 8. 大学院修士課程（博士前期課程）中退, 9. 大学院修士課程（博士前期課程）修了, 10. 大学院博士課程（博士後期課程）中退, 11. 大学院博士課程（博士後期課程）修了 |
| 個人収入 | F_INK，F_INK_cen(中央値，百万円) | あなた個人の年収を教えて下さい.                              | 0. 0円, 1. 1円〜200万円未満, 2. 200万円以上〜400万円未満, 3. 400万円以上〜600万円未満, 4. 600万円以上〜800万円未満, 5. 800万円以上〜1,000万円未満, 6. 1,000万円以上〜1,200万円未満, 7. 1,200万円以上〜1,500万円未満, 8. 1,500万円以上〜2,000万円未満, 9. 2,000万円以上, 10. わからない |
| 世帯収入 | F_INS，F_INS_cen(中央値，百万円) | あなたの世帯での収入の合計を教えて下さい.                    | 0. 0円, 1. 1円〜200万円未満, 2. 200万円以上〜400万円未満, 3. 400万円以上〜600万円未満, 4. 600万円以上〜800万円未満, 5. 800万円以上〜1,000万円未満, 6. 1,000万円以上〜1,200万円未満, 7. 1,200万円以上〜1,500万円未満, 8. 1,500万円以上〜2,000万円未満, 9. 2,000万円以上, 10. わからない |
| 回答端末 | F_TAN                            | あなたが現在回答に使われているケータイ／タブレット／パソコンについて，当てはまるものを選んで下さい． | 1. パソコン（Windows）, 2. パソコン（Mac）, 3. パソコン（その他）, 4. タブレット（Windows）, 5. タブレット（iOS，iPad）, 6. タブレット（android）, 7. タブレット（その他）, 8. スマホ（Windows）, 9. スマホ（iOS，iPhone）, 10. スマホ（android）, 11. スマホ（その他）, 12. ガラケー，フィーチャーホン, 13. その他 |
| 都道府県 | PRE                              | あなたのお住まいの県を教えて下さい.                          | 1. 北海道2. 青森県3. 岩手県4. 宮城県5. 秋田県6. 山形県7. 福島県8. 茨城県9. 栃木県10. 群馬県11. 埼玉県12. 千葉県13. 東京都14. 神奈川県15. 新潟県16. 富山県17. 石川県18. 福井県19. 山梨県20. 長野県21. 岐阜県22. 静岡県23. 愛知県24. 三重県25. 滋賀県26. 京都府27. 大阪府28. 兵庫県29. 奈良県30. 和歌山県31. 鳥取県32. 島根県33. 岡山県34. 広島県35. 山口県36. 徳島県37. 香川県38. 愛媛県39. 高知県40. 福岡県41. 佐賀県42. 長崎県43. 熊本県44. 大分県45. 宮崎県46. 鹿児島県47. 沖縄県 |
| 地域     | ARE                              | 都道府県から地域に変換                                       | 北海道：1. 北海道，東北地方：2. 青森県3. 岩手県4. 宮城県5. 秋田県6. 山形県7. 福島県，関東地方：8. 茨城県9. 栃木県10. 群馬県11. 埼玉県12. 千葉県13. 東京都14. 神奈川県，中部地方：15. 新潟県16. 富山県17. 石川県18. 福井県19. 山梨県20. 長野県21. 岐阜県22. 静岡県23. 愛知県24. 三重県，近畿地方：25. 滋賀県26. 京都府27. 大阪府28. 兵庫県29. 奈良県30. 和歌山県，中国地方：31. 鳥取県32. 島根県33. 岡山県34. 広島県35. 山口県，四国地方：36. 徳島県37. 香川県38. 愛媛県39. 高知県，九州地方：40. 福岡県41. 佐賀県42. 長崎県43. 熊本県44. 大分県45. 宮崎県46. 鹿児島県47. 沖縄県|
| 未既婚 | MAR   |  あなたはご結婚されていますか？                                              | NotMarried：未婚，Married：既婚                                                             |
| 子の有無 | CHI                              | あなたはお子さんがいらっしゃいますか？                       | NoChild：いない，Child：いる                                             |